home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / azpzip / _setup.1 / frmSplitArchive.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-14  |  5.7 KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplitArchive 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Split Archive"
  5.    ClientHeight    =   3570
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4695
  9.    Icon            =   "frmSplitArchive.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3570
  14.    ScaleWidth      =   4695
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.Frame frSearch 
  17.       Caption         =   "Search Pattern"
  18.       BeginProperty Font 
  19.          Name            =   "Tahoma"
  20.          Size            =   8.25
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   680
  28.       Left            =   2400
  29.       TabIndex        =   6
  30.       Top             =   2880
  31.       Width           =   2295
  32.       Begin VB.TextBox txtFiles 
  33.          BeginProperty Font 
  34.             Name            =   "Tahoma"
  35.             Size            =   8.25
  36.             Charset         =   0
  37.             Weight          =   400
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   315
  43.          Left            =   120
  44.          TabIndex        =   7
  45.          Text            =   "*.az"
  46.          Top             =   240
  47.          Width           =   2055
  48.       End
  49.    End
  50.    Begin VB.Frame frFileSelect 
  51.       Caption         =   "Select Archive"
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   2895
  62.       Left            =   0
  63.       TabIndex        =   2
  64.       Top             =   0
  65.       Width           =   4695
  66.       Begin VB.DriveListBox drvList 
  67.          BeginProperty Font 
  68.             Name            =   "Tahoma"
  69.             Size            =   8.25
  70.             Charset         =   0
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   315
  77.          Left            =   120
  78.          TabIndex        =   5
  79.          Top             =   240
  80.          Width           =   4455
  81.       End
  82.       Begin VB.DirListBox dirCopy 
  83.          BeginProperty Font 
  84.             Name            =   "Tahoma"
  85.             Size            =   8.25
  86.             Charset         =   0
  87.             Weight          =   400
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          Height          =   2115
  93.          Left            =   120
  94.          TabIndex        =   4
  95.          Top             =   675
  96.          Width           =   2295
  97.       End
  98.       Begin VB.FileListBox flbCopy 
  99.          BeginProperty Font 
  100.             Name            =   "Tahoma"
  101.             Size            =   8.25
  102.             Charset         =   0
  103.             Weight          =   400
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.          Height          =   2040
  109.          Left            =   2520
  110.          TabIndex        =   3
  111.          Top             =   675
  112.          Width           =   2055
  113.       End
  114.    End
  115.    Begin VB.CommandButton cmdCancel 
  116.       Caption         =   "&Cancel"
  117.       BeginProperty Font 
  118.          Name            =   "Tahoma"
  119.          Size            =   8.25
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   375
  127.       Left            =   1200
  128.       TabIndex        =   1
  129.       Top             =   3120
  130.       Width           =   1095
  131.    End
  132.    Begin VB.CommandButton cmdOpen 
  133.       Caption         =   "&Split"
  134.       Default         =   -1  'True
  135.       BeginProperty Font 
  136.          Name            =   "Tahoma"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   375
  145.       Left            =   0
  146.       TabIndex        =   0
  147.       Top             =   3120
  148.       Width           =   1095
  149.    End
  150. Attribute VB_Name = "frmSplitArchive"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. Private Sub cmdCancel_Click()
  156. Unload Me
  157. End Sub
  158. Private Sub cmdOpen_Click()
  159. If Len(flbCopy.FileName) > 1 Then
  160.         If Right(dirCopy.Path, 1) <> "\" Then
  161.         frmAZPCoDec.ActiveZipperPro1.SplitArchive flbCopy.Path & "\" & flbCopy.FileName
  162.         Else
  163.         ffrmAZPCoDec.ActiveZipperPro1.SplitArchive flbCopy.Path & flbCopy.FileName
  164.         End If
  165.     End If
  166. Unload Me
  167. End Sub
  168. Private Sub dirCopy_Change()
  169.    flbCopy.Path = dirCopy.Path
  170. End Sub
  171. Private Sub drvList_Change()
  172. dirCopy.Path = drvList.Drive
  173. End Sub
  174. Private Sub Form_Load()
  175.     flbCopy.Pattern = txtFiles.Text
  176. End Sub
  177. Private Sub txtFiles_Change()
  178. flbCopy.Pattern = txtFiles.Text
  179. End Sub
  180.